home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / FGL402F.ZIP / EXFOR.ARJ / TEMP / 09-06.FOR < prev    next >
Text File  |  1995-01-20  |  519b  |  25 lines
  1. $INCLUDE: 'C:\FG\FASTGRAF.FI'
  2.  
  3.       PROGRAM MAIN
  4.  
  5.       INTEGER STATUS
  6.       INTEGER FG_SHOWFLIC
  7.  
  8.       CALL FG_INITPM
  9.       CALL FG_SETMODE(19)
  10.  
  11.       STATUS = FG_SHOWFLIC('GLASS.FLI'//CHAR(0),1,0)
  12.       IF (STATUS .EQ. 0) CALL FG_WAITKEY
  13.  
  14.       CALL FG_SETMODE(3)
  15.       CALL FG_RESET
  16.  
  17.       IF (STATUS .EQ. 1) THEN
  18.          STOP 'GLASS.FLI not found.'
  19.       ELSE IF (STATUS .EQ. 2) THEN
  20.          STOP 'GLASS.FLI is not an FLI or FLC file.'
  21.       ELSE
  22.          STOP ' '
  23.       ENDIF
  24.       END
  25.